home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Yerk 3.6.8 / Module source / about next >
Encoding:
Text File  |  1996-01-01  |  1.4 KB  |  49 lines  |  [TEXT/YERK]
  1.  
  2. :MODULE aboutMod
  3.  
  4. // pictures
  5.  
  6. picture eye
  7.  
  8. : blue 409 call forecolor ;
  9.  
  10. scon about0 "    formerly Neon by Kriya"
  11. scon about1 " Maintained by R. F. Loewenstein"
  12. scon about2 " Dept. of Astronomy & Astrophysics"
  13. scon about3 " University of Chicago"
  14. scon about4 " Yerkes Observatory"
  15. scon about5 " Williams Bay, WI  53191
  16. scon about6 " 414-245-5555"
  17. scon about7 " rfl@yerkes.uchicago.edu
  18.  
  19. : .about blue ."  Yerk version " 1 getres vers >ptr 6 + count type cr
  20.      about0 type cr cr
  21.      about1 type cr about2 type cr about3 type cr about4 type cr
  22.     about5 type cr about6 type cr about7 type ;
  23.  
  24. : centerTemp { dx dy \ r b -- } screenBits 20 - -> b  -> r 2drop    \ take menubar height
  25.     r dx - 2/                \  get left
  26.     b dy - 2/ 10 +            \  get top
  27.     over dx +
  28.     over dy + put: temprect ;
  29.  
  30. \ bits/pixel for device
  31. : b/pix/dev ( hndl -- n)  >ptr 22 + @ >ptr 32 + w@ ;
  32.  
  33. : getDevPix ( -- n) 0 call getMainDevice b/pix/dev ;
  34.  
  35. Create (flush) popD0 " FlushEvents" asmCall next,
  36.  
  37. : about  { \ hwind -- } " aboutMod.bin" openresfile
  38.     heap> window -> hwind
  39.     410 124 getDevPix 2 > IF 45 + THEN centerTemp
  40.     temprect "  " dlgwind true false new: hwind
  41.      select: hwind -curs
  42.     2 5 getDevPix 2 >  1000 + disp: eye
  43.     -190 0 >origin
  44.     home .about
  45.     waitclick 6 (flush)  close: hwind     \ flush any key or mouse events so we don't
  46.      dispose> hwind 0 tmode 0 tface ;    \ switch out of app when window closes
  47.  
  48. ;MODULE
  49.